home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / mail / 1st_101b.zip / 2-REPLY.SCR < prev    next >
Text File  |  1992-09-28  |  2KB  |  94 lines
  1. '       
  2. '        Mail Door reply script for 1stReader
  3. '        For bbs systems using the MarkMail door
  4. '        Written by John Chambers         
  5. '        September 27, 1992
  6. '       
  7.  
  8. CAPTURE ON
  9. TIMEOUT 30
  10.  
  11. LOOKFOR "(C)ontinuous?" "N^M"
  12. LOOKFOR "correct? " "^M"
  13. LOOKFOR "elp, More? " "N^M"
  14. LOOKFOR "(Enter)=yes? " "N^M"
  15. LOOKFOR "Language #" "@LANGUAGE@^M"
  16. LOOKFOR ") to continue?" "^M"
  17. LOOKFOR "<CHAT>" "Sorry, I'm on automatic using 1stReader^M"
  18.  
  19. LOCKLINE 20 30
  20. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  21. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  22. COMMENT "@DATE@ @TIME@  Logging in to system"
  23.  
  24. WAITFOR "color|graphics" 20
  25. TRANSMIT "@GRAPHICS@ Q NS^M"
  26. WAITFOR "first name" 50
  27. IF FOUND=0 EXIT
  28. TRANSMIT "@USER@^M"
  29. WAITFOR "password|new user?" 30
  30. LOOKFOR "correct? " ""
  31. IF FOUND=1 GOTO LOGIN
  32. IF FOUND=2 GOTO NEWUSER
  33.  
  34. COMMENT "@DATE@ @TIME@  New user login"
  35. LOOKFOR "(Enter)=yes? " ""
  36. LOOKFOR ") to continue?" ""
  37. IF NOT SWITCH 1 HELP 198
  38. TERMINAL
  39. LOOKFOR "(Enter)=yes? " "N^M"
  40. LOOKFOR ") to continue?" "^M"
  41. GOTO DOOR
  42.  
  43. :NEWUSER
  44. COMMENT "@DATE@ @TIME@  New user login"
  45. LOOKFOR "(Enter)=yes? " ""
  46. LOOKFOR ") to continue?" ""
  47. IF NOT SWITCH 1 HELP 198
  48. TRANSMIT "^M"
  49. WAITFOR ")=yes?" 30
  50. TRANSMIT "Y^M"
  51. WAITFOR "please!)?" 30
  52. TRANSMIT "@PASSWORD@^M"
  53. WAITFOR "verify?" 30
  54. TRANSMIT "@PASSWORD@^M"
  55. TERMINAL
  56. LOOKFOR "(Enter)=yes? " "N^M"
  57. LOOKFOR ") to continue?" "^M"
  58. GOTO DOOR
  59.  
  60. :LOGIN
  61. COMMENT "@DATE@ @TIME@  Transmitting password"
  62. TRANSMIT "@PASSWORD@^M"
  63. WAITFOR "Command"
  64. TIMEOUT 60
  65.  
  66. :DOOR
  67. COMMENT "@DATE@ @TIME@  Joining conference #@CONFERENCE@"
  68. TRANSMIT "J @CONFERENCE@ Q^M"
  69. WAITFOR "=yes?" 3
  70. IF FOUND=1 TRANSMIT "N^M"
  71. COMMENT "@DATE@ @TIME@  Opening MarkMail Door"
  72. TRANSMIT "@QMAIL@^M"
  73. LOOKFOR ") to continue?" ""
  74.  
  75. :REPLIES
  76. IF NOT REPLIES GOTO GOODBYE
  77. COMMENT "@DATE@ @TIME@  Uploading replies"
  78. WAITFOR "MarkMail Command?"
  79. TRANSMIT "U^M"
  80. UPLOAD @REPDIR@@BBSID@.REP
  81. WAITFOR "Messages...|Cannot Insert"
  82. IF FOUND=2 GOTO GOODBYE
  83. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  84. KILL @REPDIR@@BBSID@.REP
  85. COUNT REP
  86.  
  87. :GOODBYE
  88. WAITFOR "Command?" 20
  89. TRANSMIT "G^M"
  90. PAUSE 5
  91. HANGUP
  92.  
  93. CAPTURE OFF
  94.